home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_26_1988_Transactor_Publishing.d64 / input demo (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  35 lines
  1. 100 if a=0 then a=1:load "input.obj",8,1
  2. 110 print "[147][201][206][208][213][212] [196][197][205][207]"
  3. 120 poke 53281,0:poke 53280,0:poke 53272,23
  4. 130 pr=49152:in=49155:ret=780:esc=781
  5. 140 b$=".":c$="-":d$="$"
  6. 150 sys pr,1,4,"[206]ame:"
  7. 160 sys pr,1,6,"[193]ddress:"
  8. 170 sys pr,1,8,"[195]ity:"
  9. 180 sys pr,23,8,"[208]hone:"
  10. 190 sys pr,1,10,"[193]mount [207]wed: [159]          [146] - [196]ues"
  11. 200 sys pr,14,11,"          [146] - [196]isks
  12. 210 [158] pr,14,12,"          wait - (NULL)agazines
  13. 220 sys pr,14,13,"          [146] - [212]otal
  14. 230 [135] na$,ad$,ci$,ph$,du$,di$,ma$,tl$
  15. 240 [131] "chr$arry (NULL)iziak        ","2381 str$uncaster str$rive     "
  16. 250 [131] "peekurlington     ","335-4837"
  17. 260 [131] "     $0.00","     $3.50","    $12.00","    $15.50"
  18. 1000 [153] "sys":[158] in,7,4,na$,20,153,b$:[139] [194](esc) [167] 1160
  19. 1010 [145] [194](ret) [137] 1020,1020,1140
  20. 1020 [153] "sys":[158] in,10,6,ad$,25,155,b$:[139] [194](esc) [167] 1160
  21. 1030 [145] [194](ret) [137] 1040,1040,1000
  22. 1040 [153] "sys":[158] in,7,8,ci$,15,153,b$:[139] [194](esc) [167] 1160
  23. 1050 [145] [194](ret) [137] 1060,1060,1020
  24. 1060 [153] "sys":[158] in,30,8,ph$,8,154,c$:[139] [194](esc) [167] 1160
  25. 1070 [145] [194](ret) [137] 1080,1080,1040
  26. 1080 [153] "open";:[158] in,14,10,du$,10,222,d$:[139] [194](esc) [167] 1160
  27. 1090 [145] [194](ret) [137] 1100,1100,1060
  28. 1100 [153] "open";:[158] in,14,11,di$,10,222,d$:[139] [194](esc) [167] 1160
  29. 1110 [145] [194](ret) [137] 1120,1120,1080
  30. 1120 [153] "open";:[158] in,14,12,ma$,10,222,d$:[139] [194](esc) [167] 1160
  31. 1130 [145] [194](ret) [137] 1140,1140,1100
  32. 1140 [153] "";:[158] in,14,13,tl$,10,222,d$:[139] [194](esc) [167] 1160
  33. 1150 [145] [194](ret) [137] 1000,1000,1120
  34. 1160 [158] pr,4,20,"wait(NULL)hat's all there is to it!!!"
  35.